home *** CD-ROM | disk | FTP | other *** search
/ Mastering Internet Develo…oft ActiveX Technologies / Mastering Internet Development with ActiveX (1996)(Microsoft).iso / labs / lab09 / frmbrows.frm (.txt) next >
Visual Basic Form  |  1996-07-16  |  4KB  |  130 lines
  1. VERSION 4.00
  2. Begin VB.Form frmBrowse 
  3.    Caption         =   "Web Browser"
  4.    ClientHeight    =   3420
  5.    ClientLeft      =   1860
  6.    ClientTop       =   2955
  7.    ClientWidth     =   6480
  8.    Height          =   3825
  9.    Left            =   1800
  10.    LinkTopic       =   "Form2"
  11.    ScaleHeight     =   3420
  12.    ScaleWidth      =   6480
  13.    Top             =   2610
  14.    Width           =   6600
  15.    Begin VB.CommandButton cmdRefresh 
  16.       Caption         =   "&Refresh"
  17.       Height          =   375
  18.       Left            =   120
  19.       TabIndex        =   8
  20.       Top             =   480
  21.       Width           =   1095
  22.    End
  23.    Begin VB.CommandButton cmdClose 
  24.       Caption         =   "&Close"
  25.       Height          =   375
  26.       Left            =   4080
  27.       TabIndex        =   5
  28.       Top             =   480
  29.       Width           =   1095
  30.    End
  31.    Begin VB.CommandButton cmdForward 
  32.       Caption         =   "&Forward >>"
  33.       Height          =   375
  34.       Left            =   2760
  35.       TabIndex        =   4
  36.       Top             =   480
  37.       Width           =   1095
  38.    End
  39.    Begin VB.CommandButton cmdBack 
  40.       Caption         =   "<< &Back"
  41.       Height          =   375
  42.       Left            =   1440
  43.       TabIndex        =   3
  44.       Top             =   480
  45.       Width           =   1095
  46.    End
  47.    Begin VB.CommandButton cmdGo 
  48.       Caption         =   "&GO!"
  49.       Height          =   375
  50.       Left            =   5280
  51.       TabIndex        =   2
  52.       Top             =   120
  53.       Width           =   1095
  54.    End
  55.    Begin VB.TextBox txtAddress 
  56.       Height          =   285
  57.       Left            =   840
  58.       TabIndex        =   1
  59.       Top             =   120
  60.       Width           =   4335
  61.    End
  62.    Begin ComctlLib.StatusBar StatusBar 
  63.       Align           =   2  'Align Bottom
  64.       Height          =   300
  65.       Left            =   0
  66.       TabIndex        =   7
  67.       Top             =   3120
  68.       Width           =   6480
  69.       _Version        =   65536
  70.       _ExtentX        =   11430
  71.       _ExtentY        =   529
  72.       _StockProps     =   68
  73.       AlignSet        =   -1  'True
  74.       Style           =   1
  75.       SimpleText      =   ""
  76.       i1              =   "frmBrows.frx":0000
  77.    End
  78.    Begin SHDocVwCtl.WebBrowser Browser 
  79.       Height          =   2055
  80.       Left            =   0
  81.       TabIndex        =   6
  82.       Top             =   960
  83.       Width           =   6375
  84.       Object.Height          =   137
  85.       Object.Width           =   425
  86.       AutoSize        =   0
  87.       ViewMode        =   1
  88.       AutoSizePercentage=   0
  89.       AutoArrange     =   -1  'True
  90.       NoClientEdge    =   -1  'True
  91.       AlignLeft       =   0   'False
  92.    End
  93.    Begin VB.Label Label1 
  94.       Caption         =   "&Address:"
  95.       Height          =   255
  96.       Left            =   120
  97.       TabIndex        =   0
  98.       Top             =   120
  99.       Width           =   735
  100.    End
  101. Attribute VB_Name = "frmBrowse"
  102. Attribute VB_Creatable = False
  103. Attribute VB_Exposed = False
  104. Private Sub browser_OnNavigate(ByVal URL As String, ByVal Flags As Long, ByVal TargetFrameName As String, PostData As Variant, ByVal Headers As String, ByVal Referrer As String)
  105.     txtAddress.Text = URL
  106. End Sub
  107. Private Sub browser_OnStatusTextChange(ByVal bstrText As String)
  108.     StatusBar.SimpleText = bstrText
  109. End Sub
  110. Private Sub cmdBack_Click()
  111.     browser.GoBack
  112. End Sub
  113. Private Sub cmdClose_Click()
  114.     Unload frmBrowse
  115. End Sub
  116. Private Sub cmdForward_Click()
  117.     browser.GoForward
  118. End Sub
  119. Sub cmdGo_Click()
  120.     browser.Navigate txtAddress.Text
  121. End Sub
  122. Private Sub cmdRefresh_Click()
  123.     browser.Refresh
  124. End Sub
  125. Private Sub Form_Resize()
  126.     If frmBrowse.WindowState <> 1 Then
  127.         browser.Move 0, 960, frmBrowse.ScaleWidth, frmBrowse.ScaleHeight - 1260
  128.     End If
  129. End Sub
  130.